SPACE 1

home *** CD-ROM | disk | FTP | other *** search

/ SPACE 1 / SPACE - Library 1 - Volume 1.iso / games / 281 / stos / zoltar.bas (.txt) < prev

Wrap

Atari STOS Basic | 1989-03-03 | 47KB | 374 lines

1 REM ------------------------------ 10 IF 100 FADE 1000 GOSUB 10000 FOR 10005 RETURN 10047 REM 10048 REM --> Clear and reset screen 10049 REM 1005 IF 10050 HIDE 10055 INVERSE 10060 PALETTE 10065 SHIFT 10070 RETURN 10097 REM 10098 REM --> Set screen for game 10099 REM 1010 FOR 10100 HIDE 10105 RETURN 1011 FOR 1013 INK 1014 MUSIC 10147 REM 10148 REM --> Wait for mouse key 10149 REM 1015 VARNAME 10150 REPEAT 10155 WHILE 10160 RETURN 10197 REM 10198 REM --> Move sky 10199 REM 10200 SCREEN COPY 10205 VARNAME 10210 IF 10215 RETURN 10247 REM 10248 REM ---> Initialise aliens sprites 10249 REM 10250 SPRITE 10255 FOR 10260 SPRITE 10265 VARNAME 10270 VARNAME 10275 VARNAME 10297 REM 10298 REM ---> Animation of aliens 10299 REM 10300 FOR 10305 IF 10310 IF 10315 NEXT 10320 RETURN 10347 REM 10348 REM ---> Print rainbow 10349 REM 10350 FOR 10355 RETURN 10397 REM 10398 REM ---> One game 10399 REM 10400 GOSUB 10405 LOGIC 10410 LOCATE 10415 VARNAME 10420 GOSUB 10425 VARNAME 10430 FOR 10435 NEXT 10440 GOSUB 10441 VOICE 10445 LIMIT MOUSE 10450 VARNAME 10455 REPEAT 10460 IF 10465 IF 10470 GOSUB 10475 IF 10480 FOR 10485 VARNAME 10490 VARNAME 10495 FOR 105 DIM 1050 ON 10500 ANIM 10505 INC 10510 VARNAME 10515 VARNAME 10520 IF 10521 IF 10522 IF 10525 IF 10530 TIMER 10535 UNTIL 10540 IF 10545 RETURN 1055 GOTO 10597 REM 10598 REM ---> Initialise bank 10599 REM 1060 DEFAULT 10600 ERASE 10605 FILL 10610 LOKE 10615 FOR 10620 LOKE 10625 NEXT 10630 DOKE 10635 DOKE 10640 DOKE 10645 RETURN 10797 REM 10798 REM --> MAGEDON phase 10799 REM 10800 VARNAME 10805 IF 10810 IF 10815 GOSUB 10820 IF 10825 IF 10830 IF 10835 FOR 10840 VARNAME 10845 IF 10850 VARNAME 10852 IF 10855 IF 10856 IF 10860 IF 10865 TIMER 10870 UNTIL 10875 IF 10900 VARNAME 10901 FOR 10902 NEXT 10905 REPEAT 10910 GOSUB 10911 IF 10950 IF 10955 INC 10960 UNTIL 10965 VOICE 1097 REM ------------------------------ 1098 REM Play game 1099 REM ------------------------------ 10997 REM 10998 REM --> Menu generator 10999 REM 1100 VARNAME 11000 GOSUB 11005 RESTORE 11010 WHILE 11015 VARNAME 11020 FOR 11025 VARNAME 11030 SHOW 11050 REPEAT 11055 IF 11060 IF 11065 IF 11070 UNTIL 11075 INVERSE 1110 VARNAME 1115 ON ERROR 1120 IF 1125 BLOAD 1126 IF 1130 GOSUB 1135 IF 1140 IF 1145 GOSUB 1150 FOR 1155 WAIT 1160 GOTO 1200 IF 1205 GOTO 1499 REM ---> Disk error 1500 GOSUB 1505 LOCATE 1510 RESUME 1997 REM ------------------------------ 1998 REM Create a phase 1999 REM ------------------------------ 2 REM ZOLTAR 200 RESERVE 2000 ON ERROR 2005 MUSIC 2010 ON 2015 GOTO 205 VARNAME 2097 REM ---------------------- 2098 REM LOAD A PHASE 2099 REM ---------------------- 210 GOSUB 2100 CLS 2105 PAPER 2110 IF 2115 GOSUB 2120 VARNAME 2125 BLOAD 2130 GOTO 2499 REM ---> Error traitement 2500 GOSUB 2505 LOCATE 2510 LOCATE 2515 WAIT KEY 2520 RESUME 2997 REM ---------------------- 2998 REM SET ALIEN ATTACK 2999 REM ---------------------- 3 REM 300 EXTENSION (Index #0) (Token 0x80) 3000 VARNAME 3005 ON 3010 GOTO 305 EXTENSION (Index #0) (Token 0x80) 3099 REM ---> Draw attack curve 310 CLS 3100 GOSUB 3105 LOCATE 3110 LOCATE 3115 LOCATE 3120 VARNAME 3125 GOSUB 3130 REPEAT 3135 WAIT 3140 VARNAME 3145 POKE 315 CLS 3150 IF 3155 UNTIL 3160 DOKE 3165 GOTO 3199 REM ---> Release aliens 320 CLS 3200 GOSUB 3205 LOCATE 3210 LOCATE 3215 LOCATE 3220 GOSUB 3225 HIDE 3230 VARNAME 3235 GOSUB 3240 REPEAT 3245 IF 325 RESTORE 3250 IF 3255 IF 3260 IF 3265 VARNAME 3270 LOGIC 3275 GOSUB 3280 SYNCHRO 3285 IF 3290 TIMER 3295 GOTO 3997 REM ---------------------- 3998 REM CHOOSE ALIEN SHIPS 3999 REM ---------------------- 4 REM Part of the STOS Basic 4000 VARNAME 4005 ON 4010 GOTO 4099 REM ---> Choose aliens 4100 DOKE 4105 LOCATE 4110 LOCATE 4115 VARNAME 4120 SPRITE 4125 NEXT 4130 VARNAME 4135 VARNAME 4140 IF 4145 IF 4150 IF 4155 MOVE Y 4160 MOVE 4165 MOVE Y 4170 MOVE 4175 POKE 4180 UNTIL 4185 GOTO 4199 REM ---> Set fire rate 4200 GOSUB 4205 LOCATE 4210 LOCATE 4215 LOCATE 4220 IF 4225 DOKE 4230 IF 4250 GOSUB 4255 LOCATE 4260 LOCATE 4265 LOCATE 4270 IF 4275 DOKE 4280 GOTO 4299 REM ---> Choose magedon 4300 POKE 49 REM ' ---> Number of alien sprites in the bank 4997 REM 4998 REM ---> Try game 4999 REM 5 REM 50 VARNAME 5000 VARNAME 50000 DATA 50005 DATA 50010 DATA 50015 DATA 5005 GOTO 50100 DATA 50105 DATA 50110 DATA 50115 DATA 50120 DATA 50125 DATA 50130 DATA 50200 DATA 50205 DATA 50210 DATA 50215 DATA 50300 DATA 50305 DATA 50310 DATA 50315 DATA 50320 DATA 50400 DATA 50405 DATA 50410 DATA 50415 DATA 50999 REM Positions of magedon fire 51000 DATA 5997 REM 5998 REM ---> Save game 5999 REM 6 REM By F. Lionet 6000 VARNAME 6005 ON 6010 GOTO 6099 REM ---> Add a wave to disk 6100 GOSUB 6105 VARNAME 6110 ON ERROR 6115 VARNAME 6120 REPEAT 6125 VARNAME 6130 UNTIL 6135 VARNAME 6140 LOCATE 6145 BSAVE 6150 GOTO 6199 REM ---> Replace a wave 6200 CLS 6205 PAPER 6210 IF 6215 GOSUB 6220 BSAVE 6225 GOTO 7 REM Graphics by D. McLachlan 8 REM (c) 1988 Jawx / Mandarin 9 REM ----------9/8/1988------------ 9900 END 997 REM --------------------------- 998 REM First menu / title 999 REM --------------------------- 9990 REM ---------------------------- 9991 REM 9992 REM SUB ROUTINES 9993 REM 9994 REM ----------------------------